home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CON-03A.ZIP / MSGBASE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-16  |  2.5 KB  |  103 lines
  1. (* Conspiracy Software Version 0.2α (c)1995 Grooven Designs       *)
  2. (* Conspiracy Message Base Unit - Coded by Paul Maggs 1995 *)
  3. unit msgbase;
  4.  
  5. interface
  6.  
  7. procedure msg_body(reciever, description : string);
  8. procedure read_message;
  9. procedure enter_message;
  10.  
  11. implementation
  12.  
  13. uses crt,
  14.      funct,
  15.      mmenu;
  16. var
  17.   ch             : char;
  18.   len            : integer;
  19.  
  20. procedure msg_body(reciever, description : string);
  21. var
  22.   msgfile        : text;
  23.   stuff          : string;
  24.   privatem       : char;
  25.  
  26. begin
  27.   clrscr;
  28.   assign(msgfile,'msg\msg.dat');
  29.   append(msgfile);
  30.   writeln('Reciever :',reciever, ' Subject :',description);
  31.   writeln('|----*----*----*----*----*----*----*----*----*----*----*----*----*----*----*-|');
  32.   write(msgfile,'Reciever    : ');
  33.   writeln(msgfile,reciever);
  34.   write(msgfile,'Description : ');
  35.   writeln(msgfile,description);
  36.   writeln(msgfile,'----------------------------------------------------------------------------');
  37.   repeat
  38.     stuff:=grabstring;
  39.     if (stuff<>'/S') then writeln(msgfile,stuff);
  40.     if (stuff='/A') then exit;
  41.     if (Stuff='/') then begin
  42.       textcolor(3);
  43.       writeln('+- ( conspiracy line editor help ) ------------------------------------------+');
  44.       writeln('Coammnds for use in editor :');
  45.       writeln('/S - Save Message');
  46.       writeln('/A - Abort Message');
  47.       writeln('+----------------------------------------------------------------------------+');
  48.       textcolor(7);
  49.       end;
  50.  
  51.   until (stuff='/S');
  52.   writeln(msgfile,'@SPLIT@');
  53.   close(msgfile);
  54.   end;
  55.  
  56.  
  57. procedure read_message;
  58. var msgfile : text;
  59.     stuff : string;
  60. begin
  61.   assign(msgfile,'msg\msg.dat');
  62.   reset(msgfile);
  63.     clrscr;
  64.      repeat
  65.      clrscr;
  66.      repeat
  67.         begin
  68.           readln(msgfile,stuff);
  69.           if stuff<>'@SPLIT@' then begin
  70.              writeln(stuff);
  71.            end;
  72.            end;
  73.        until stuff='@SPLIT@';
  74.     writeln('');
  75.     writeln('(ENTER)continue, (S)top, (R)eply, (D)elete');
  76.     ch:=readkey;
  77.     case upcase(ch) of
  78.      'S' : exit;
  79.     end;
  80.   until eof(msgfile);
  81.   close(msgfile);
  82. end;
  83.  
  84.  
  85.  
  86.  
  87. procedure enter_message;
  88. var
  89.   msgfile        : text;
  90.   reciever       : string[30];
  91.   description    : string[30];
  92. begin
  93.   writeln;
  94.   write('To : enter=ALL       : ');
  95.   len:=30;
  96.   reciever:=strupper(lengthstring(len));
  97.    if reciever=#13 then reciever:='ALL';
  98.      write('Subject              : ');
  99.      len:=30;
  100.      description:=strupper(lengthstring(len));
  101.    msg_body(reciever, description);
  102. end;
  103. end.